#! /usr/bin/perl -w
 
# usando modulo o libreria CGI
use CGI;
# creando un OBJETO de tipo CGI
$q = new CGI;
# programa
if ($q->param('OK')) {
	# area de declaracion y captura
	$nombre = $q->param('NOMBRE');
	$contrasenia = $q->param('CONTRASENIA'); 
	# area de operaciones
	if($nombre eq "invitado" && $contrasenia eq "123")
	{
		$info="Bienvenido"; 
	}
	else
	{
		$info="Usuario incorrecto"; 
	}
	# area de despliegue 
	$q->param('INFO',$info);
};
 
# mandando servidor los encabezados de la pagina html
print $q->header;
print $q->start_html({-title=>'PROGRAMA1.PL'});
# mandando textos html y query puede usar cualquier tag html
print $q->h3("Autenticar Usuario");
print $q->hr();

# creando una forma o ventana
print $q->startform();
# agregando los objetos HTML para resolver problema
print "Usuario : ";
print $q->textfield('NOMBRE','', 15);
print $q->br();
print $q->b("Contrasenia :");
print $q->password_field('CONTRASENIA', '', 15);
print $q->br();
# creando un submit button
print $q->submit('OK');
print $q->br();
print $q->textfield('INFO','',15);
# cerrando la forma
print $q->endform();
#cerrando html
print $q->hr();
print $q->end_html;
